2 ON S+1 GOTO 200, 235
4 FOR R=7 TO Z STEP SP : PRINT# 4, CHR$( PEEK( BB + PEEK( C+R ))); : NEXT
5 RETURN
6 FOR R=7 TO Z STEP SP : PRINT# 4, CHR$( PEEK( C+R )) ; : NEXT : RETURN
10 A(Y)=A : N%( Y-1 )=A(Y) - A( Y-1 ) : IF H < N%( Y-1 ) THEN H=N%( Y-1 )
12 RETURN
15 S=0 : FOR Y=1 TO V-2
20 IF S GOTO 40
25 GET#8, A$ : S=ST : IF A$=CR$ THEN GOSUB 10 : NEXT Y : GOTO 40
30 IF A$ < SP$ GOTO 20
35 POKE A, ASC( A$ ) : A=A + 1 : GOTO 20
40 GOSUB 10 : CLOSE 8 : CLOSE 15 : V=Y - 1 : OPEN 4,4 : X=1 : SP=-1 :Z=0
45 IF F%=1 GOTO 55
50 F$=F$ + CHR$((( V+1 ) * 9 ) AND 255 ) + CHR$( INT(( V+1 ) * 9 / 256 ))
55 PRINT# 4, F$; : FOR Y=V TO Z STEP SP : C=32
60 IF N%(Y) >= X THEN C=FNA( PEEK( A(Y) +X-1 )) : IF C=160 THEN C=32
70 IF C=32 THEN FOR W=1 TO 9 : PRINT# 4, BP$; : NEXT W : NEXT Y : GOTO90
75 C=C * 8 + B : ON F% GOSUB 4, 6 : PRINT# 4, BP$; : NEXT Y
90 PRINT#4 : X=X+1 : IF X<=H GOTO 55
95 PRINT#4, CL$ : CLOSE 4 : GOTO 285
200 PRINT CHR$( 147 ) CHR$( 14 ) : POKE 56, 19 : POKE 55, 255 : CLR
225 DEF FNA(C)=C+(C>63ANDC<96)*64+(C>192ANDC<219)*128+(C>96ANDC<123)*32
230 S=1 : LOAD "FONTFILE",8,1
235 CR$=CHR$( 13 ) : SP$=" " : BP$=CHR$( 0 ) : CL$=CHR$( 27 ) + "2"
237 DIM A(54), N%(54)
240 F%=1 : INPUT " 1. [195]OMMODORE OR 2. [197]PSON PRINTER"; F% : IF F%=2 GOTO 285
245 CR$=CHR$( 13 ) : F$=CHR$( 8 ) : SP$=" " : CL$=CHR$( 15 ) : BP$=CHR$( 128 )
285 X$="" : PRINT : INPUT" WHICH FILE"; X$ : IF X$="" THEN END
295 IF F%=2 THEN F$=CHR$( 27 ) + "A" + CHR$( 8 ) + CHR$( 27 ) + "K"
300 V=54 : H=0 : A=7424 : A(0)=A : BB=7168 : B=5120
305 OPEN 15, 8, 15 : OPEN 8, 8, 8, X$+",S,R" : INPUT#15,E,E$,ET,ES
310 IF E<20 THEN PRINT"READING FILE "X$ : GOTO 15
315 PRINT"TROUBLE OPENING FILE "X$":"
320 PRINT"ERROR #"E;E$" TRACK"ET"SECTOR"ES":CLOSE8:CLOSE15
325 [137] 285
399 :
400 [143] CLOCKWISE: PRINTS SEQ TEXTFILES ROTATED 90 DEGREES ON COMMODORE
401 [143] OR EPSON DOT-MATRIX PRINTERS ... MAKES BANNER-LIKE SPREADSHEETS
402 :
405 [143] WRITTEN BY JOHN KROUT
21654 A~[154]
[143] COPYRIGHT 1987 BY JOHN KROUT
411 :
415 [143] MAY BE COPIED AND DISTRIBUTED FOR FREE BUT NOT SOLD OR MODIFIED